home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Interfaces / AppleScript 1.0 Interfaces / PInterfaces / ASRegistry.p < prev    next >
Encoding:
Text File  |  1993-04-09  |  3.6 KB  |  145 lines  |  [TEXT/MPS ]
  1. {
  2. ////////////////////////////////////////////////////////////////////////////////
  3. // Copyright © 1993 Apple Computer, Inc. All rights reserved.
  4. ////////////////////////////////////////////////////////////////////////////////
  5. // AppleScript Registry constants
  6. ////////////////////////////////////////////////////////////////////////////////
  7. }
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT ASRegistry;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingASRegistry}
  19. {$SETC UsingASRegistry := 1}
  20.  
  21. {$I+}
  22. {$SETC ASRegistryIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24. {$IFC UNDEFINED UsingAERegistry}
  25. {$I $$Shell(PInterfaces)AERegistry.p}
  26. {$ENDC}
  27. {$SETC UsingIncludes := ASRegistryIncludes}
  28.  
  29. CONST
  30.     kASAppleScriptSuite            = 'ascr';
  31.     kASTypeNamesSuite            = 'tpnm';
  32.  
  33. { Dynamic Terminologies: }
  34.     typeAETE                    = 'aete';
  35.     typeAEUT                    = 'aeut';
  36.     kGetAETE                    = 'gdte';
  37.     kGetAEUT                    = 'gdut';
  38.     kASCommentEvent                = 'cmnt';
  39.     kASLaunchEvent                = 'noop';
  40.  
  41. { User-defined record fields: }
  42.     keyASUserRecordFields        = 'usrf';
  43.     typeUserRecordFields        = typeAEList;
  44.  
  45. { Operator Events: }
  46.     keyASArg                    = 'arg ';
  47.     { Binary: }
  48.     kASEqual                    = kAEEquals;
  49.     kASNotEqual                    = '≠   ';
  50.     kASGreaterThan                = kAEGreaterThan;
  51.     kASGreaterThanOrEqual        = kAEGreaterThanEquals;
  52.     kASLessThan                    = kAELessThan;
  53.     kASLessThanOrEqual            = kAELessThanEquals;
  54.     kASStartsWith                = kAEBeginsWith;
  55.     kASEndsWith                    = kAEEndsWith;
  56.     kASContains                    = kAEContains;
  57.     { not currently sent: }
  58.     kASConcatenate                = 'ccat';
  59.     kASAdd                        = '+   ';
  60.     kASSubtract                    = '-   ';
  61.     kASMultiply                    = '*   ';
  62.     kASDivide                    = '/   ';
  63.     kASQuotient                    = 'div ';
  64.     kASRemainder                = 'mod ';
  65.     kASPower                    = '^   ';
  66.     { Unary: }
  67.     kASNegate                    = 'neg ';
  68.  
  69. { Subroutine Events: }
  70.     kASSubroutineEvent            = 'psbr';
  71.     keyASSubroutineName            = 'snam';
  72.  
  73. { Subroutine event parameter prepositions: }
  74.     keyASPrepositionAt            = 'at  ';
  75.     keyASPrepositionIn            = 'in  ';
  76.     keyASPrepositionFrom        = 'from';
  77.     keyASPrepositionFor            = 'for ';
  78.     keyASPrepositionTo            = 'to  ';
  79.     keyASPrepositionThru        = 'thru';
  80.     keyASPrepositionThrough        = 'thgh';
  81.     keyASPrepositionBy            = 'by  ';
  82.     keyASPrepositionOn            = 'on  ';
  83.     keyASPrepositionInto        = 'into';
  84.     keyASPrepositionOnto        = 'onto';
  85.     keyASPrepositionBetween        = 'btwn';
  86.     keyASPrepositionAgainst        = 'agst';
  87.     keyASPrepositionOutOf        = 'outo';
  88.     keyASPrepositionInsteadOf    = 'isto';
  89.     keyASPrepositionAsideFrom    = 'asdf';
  90.     keyASPrepositionAround        = 'arnd';
  91.     keyASPrepositionBeside        = 'bsid';
  92.     keyASPrepositionBeneath        = 'bnth';
  93.     keyASPrepositionUnder        = 'undr';
  94.     keyASPrepositionOver        = 'over';
  95.     keyASPrepositionAbove        = 'abve';
  96.     keyASPrepositionBelow        = 'belw';
  97.     keyASPrepositionApartFrom    = 'aprt';
  98.     keyASPrepositionAbout        = 'abou';
  99.     keyASPrepositionSince        = 'snce';
  100.     keyASPrepositionUntil        = 'till';
  101.  
  102. { AppleScript Classes and Enums: }
  103.     cEventIdentifier            = 'evnt';
  104.     cScript                        = 'scpt';
  105.     cSeconds                    = 'scnd';
  106.     cList                        = typeAEList;
  107.     cRecord                        = typeAERecord;
  108.  
  109. { List properties: }
  110.     pLength                        = 'leng';
  111.     pReverse                    = 'rvse';
  112.     pRest                        = 'rest';
  113.  
  114. { Script properties: }
  115.     pASParent                    = 'pare';
  116.  
  117. { Properties of global environment: }
  118.     pASPrintLength                = 'prln';
  119.     pASPrintDepth                = 'prdp';
  120.  
  121. { Considerations: }
  122.     enumConsiderations            = 'cons';
  123.     kAECase                        = 'case';
  124.     kAEDiacritic                = 'diac';
  125.     kAEWhiteSpace                = 'whit';
  126.     kAEHyphens                    = 'hyph';
  127.     kAEExpansion                = 'expa';
  128.     kAEPunctuation                = 'punc';
  129.     kAEZenkakuHankaku            = 'zkhk';
  130.     kAESmallKana                = 'skna';
  131.     kAEKataHiragana                = 'hika';
  132.     { AppleScript considerations: }
  133.     kASConsiderReplies            = 'rmte';
  134.  
  135. { System classes: }
  136.     cZone                        = 'zone';
  137.     cMachine                    = 'mach';
  138.  
  139. {$ENDC}    { UsingASRegistry }
  140.  
  141. {$IFC NOT UsingIncludes}
  142.     END.
  143. {$ENDC}
  144.  
  145.